* calc/calc-units.el (calc-quick-units): Use the proper units expression.

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index ffcba17f53004609c25ee1ef353bf2eecd2dc066..6d876cf79ba0a1d47c4aa29da06cb2d5dae7c0ff 100644 (file)
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -374,7 +374,7 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).")
      (if (math-units-in-expr-p expr nil)
          (progn
            (if calc-ensure-consistent-units
-               (math-check-unit-consistency expr units))
+               (math-check-unit-consistency expr (nth pos units)))
            (calc-enter-result 1 (format "cun%d" num)
                               (math-convert-units expr (nth pos units))))
        (calc-enter-result 1 (format "*un%d" num)